home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qb3db.zip
/
QBDB3.DOC
< prev
next >
Wrap
Text File
|
1993-01-04
|
20KB
|
929 lines
QuickBASIC (tm) DBASE III (tm) Routines
Programming Toolbox routines
For
QuickBASIC (tm) compiler
Written by
George Quinones
P.O.Box 1062
Orlando,Fl.,32802-1062
(305)894-0023
Copyright (c) 1987 by G. Quinones. all rigths reserved
QuickBASIC is a register trademark of MICROSOFT inc.
DBASE III is a register trademark of ASHTON TATE inc.
Quick Basic DBASE III Routines
INTRODUCTION
This tool box was designed to give the basic programmer the
ability to access DBASE III database files, (.DBF). Just about every
file operation is supported with the exception of memo fields and index
files. I am currently working in the routines to access memo fields,
in addition error checking, which do not exist in any of these demo
subroutines.
Four files are supplied with in this archive:
QBDB3.EXE A demo program showing the used of the
subroutines.
QBDB3.BAS Source code for the demo programm. The source
code for the demo program is included as a
sample on how to use the routines. Some of
the called modules used by the demo are
copyrighted by other companies, so I can not
release their source code.
QBDB3.DOC Documentation of the QBDB3 subroutines
QBDB3IO.OBJ This file contains all the necessary routines
to access DBASE III .DBF files. This file
consist of 10 file operations subprograms and
1 field operation subprogram. All of the
Subroutine have been compiled to use the
BRUN30.EXE module.
Some limitations have been built into the demo toolbox:
1) A maximum of 10 fields per record can be access
2) A maximum of 50 records per databes file.
By establishing these limitations it will ensure me that any
person that finds this library usefull will in fact register.
All the routines have been tested and found bug free when used in
accordance with their documentation. If you find that any of these
routines do not work properly as described, please let me know and I
will fix them promptly.
All the above routines are being supplied as is. I do not make
any implicit or explicit guaranties that they will work, and further
more will not assumed any responsability for the used or misused of
routines included within.
Quick Basic DBASE III Routines
OPEN DBASE III FILE
Purpose: Opens A DBASE III .DBF file for processing
Syntax : SUB DB.OPEN( _
DB.FX.%, _
DB.FX.NAME.$, _
DB.FIELDS.%, _
DB.LAST.OPEN.$, _
DB.HDR.LEN.%, _
DB.HDR.REC.TOT.!,_
DB.LEN.%)
Parameters: DB.FX.% Contains the file number of the
file to be opened.
DB.FX.NAME.$ Contains the name of the file
to be opened for processing
must have a .DBF.
DB.FIELDS.% Number of fields in the record.
DB.LAST.OPEN.$ Last date the file was used.
DB.HDR.LEN.% Length of the header structure.
!!DO NOT MODIFIED THIS FIELD!!!
DB.HDR.REC.TOT.! Number of records in the file.
DB.LEN.% Record Length.
1
Quick Basic DBASE III Routines
CLOSE DBASE III FILE
Purpose: Closes a DBASE III .DBF.
Syntax: SUB DB.CLOSE( _
DB.FX.%, _
DB.FX.NAME.$, _
DB.HDR.REC.TOT.!, _
DB.RC.%)
Parameters: DB.FX.% Contains the file number of the
file to be opened.
DB.FX.NAME.$ Contains the name of the file
to be opened for processing
must have a .DBF.
DB.HDR.REC.TOT.! Number of records in the file.
DB.RC.% Return Code. !!!NOT IN USE!!!!
2
Quick Basic DBASE III Routines
RETRIEVE STRUCTURE OF DBASE III FILE
Purpose: Retrieves DBASE III .DBF file Structure.
Syntax: SUB DB.STRUC( _
DB.FX.%, _
DB.FX.NAME.$, _
DB.NAME.$(), _
DB.LENGTH.%(), _
DB.TYPE.$(), _
DB.DEC.%(), _
DB.FIELDS.%, _
DB.LEN.%, _
DB.RC.%)
Parameters: DB.FX.% Contains the file number of the
file to be opened.
DB.FX.NAME.$ Contains the name of the file
to be opened for processing
must have a .DBF.
DB.NAME.$() Array containing the names of
the database record fields.
DB.LENGTH.$() Array containing the length of
the database fields.
DB.TYPE.$() Array containing the type of
the database fields.
DB.DEC.$() Array containing the decimal
positions of the database
fields.
DB.FIELDS.% Number of fields in the
database record.
DB.LEN.% Record Length.
DB.RC.% Return Code. !!!NOT IN USE!!!!
3
Quick Basic DBASE III Routines
CREATE DBASE III FILE
Purpose: Creates the header structure of a new DBASE III
.DBF file.
Syntax: SUB DB.CREATE( _
DB.FX.%, _
DB.FX.NAME.$, _
DB.NAME.$(), _
DB.LENGTH.%(), _
DB.TYPE.$(), _
DB.DEC.%(), _
DB.FIELDS.%, _
DB.LEN.%, _
DB.RC.%)
Parameters: DB.FX.% Contains the file number of the
file to be opened.
DB.FX.NAME.$ Contains the name of the file
to be opened for processing
must have a .DBF.
DB.NAME.$() Array containing the names of
the database record fields.
DB.LENGTH.$() Array containing the length of
the database fields.
DB.TYPE.$() Array containing the type of
the database fields.
DB.DEC.$() Array containing the decimal
positions of the database
fields.
DB.FIELDS.% Number of fields in the
database record.
DB.LEN.% Record Length.
DB.RC.% Return Code. !!!NOT IN USE!!!!
4
Quick Basic DBASE III Routines
READ DBASE III RECORD
Purpose: Retrieves a DBASE III by record number.
Syntax: SUB DB.GET( _
DB.FX.%, _
DB.NUM.%, _
DB.LEN.%, _
DB.HDR.LEN.%, _
DB.HDR.REC.TOT.!)
Parameters: DB.FX.% Contains the file number of the
file to be opened.
DB.NUM.% Contains the record number of
the database record to be
retrieve.
DB.LEN.% Record Length.
DB.HDR.LEN.% Length of the header structure.
!!DO NOT MODIFIED THIS FIELD!!!
DB.HDR.REC.TOT.! Number of records in the file.
5
Quick Basic DBASE III Routines
UPDATE DBASE III RECORD
Purpose: Updates a DBASE III record by record number
Syntax: SUB DB.PUT( _
DB.FX.%, _
DB.NUM.%, _
DB.LEN.%, _
DB.HDR.LEN.%, _
DB.HDR.REC.TOT.!)
Parameters: DB.FX.% Contains the file number of the
file to be opened.
DB.NUM.% Contains the record number of
the database record to be
retrieve.
DB.LEN.% Record Length.
DB.HDR.LEN.% Length of the header structure.
!!DO NOT MODIFIED THIS FIELD!!!
DB.HDR.REC.TOT.! Number of records in the file.
6
Quick Basic DBASE III Routines
APPEND DBASE III RECORD
Purpose: Adds a DBASE III record.
Syntax: SUB DB.ADD( _
DB.FX.%, _
DB.NUM.%, _
DB.LEN.%, _
DB.HDR.LEN.%, _
DB.HDR.REC.TOT.!)
Parameters: DB.FX.% Contains the file number of the
file to be opened.
DB.NUM.% Contains the record number of
the database record to be
retrieve.
DB.LEN.% Record Length.
DB.HDR.LEN.% Length of the header structure.
!!DO NOT MODIFIED THIS FIELD!!!
DB.HDR.REC.TOT.! Number of records in the file.
7
Quick Basic DBASE III Routines
DELETE DBASE III RECORD
Purpose: Marks a record a DBASE III record for deletion.
Syntax: SUB DB.DEL( _
DB.FX.%, _
DB.NUM.%, _
DB.LEN.%, _
DB.HDR.LEN.%, _
DB.HDR.REC.TOT.!)
Parameters: DB.FX.% Contains the file number of the
file to be opened.
DB.NUM.% Contains the record number of
the database record to be
retrieve.
DB.LEN.% Record Length.
DB.HDR.LEN.% Length of the header structure.
!!DO NOT MODIFIED THIS FIELD!!!
DB.HDR.REC.TOT.! Number of records in the file.
8
Quick Basic DBASE III Routines
CONVERT RELATIVE RECORD # TO ABSOLUTE RECORD #
Purpose: Finds data base physical record number
Syntax: SUB DB.FIND.DB.REC( _
DB.NUM.%, _
DB.LEN.%, _
DB.HDR.LEN.%, _
DB.HDR.REC.TOT.!, _
DB.RECNUM.!, _
DB.L.%, _
DB.R.%)
9
Quick Basic DBASE III Routines
RECALL DBASE III RECORD
Purpose: Recalls a DBASE III .DBF record by record number.
Syntax: SUB DB.RECALL( _
DB.FX.%, _
DB.NUM.%, _
DB.LEN.%, _
DB.HDR.LEN.%, _
DB.HDR.REC.TOT.!)
Parameters: DB.FX.% Contains the file number of the
file to be opened.
DB.NUM.% Contains the record number of
the database record to be
retrieve.
DB.LEN.% Record Length.
DB.HDR.LEN.% Length of the header structure.
!!DO NOT MODIFIED THIS FIELD!!!
DB.HDR.REC.TOT.! Number of records in the file.
10
Quick Basic DBASE III Routines
PACK DBASE III FILE
Purpose: Removes all records marks for deletion in a DBASE
III .DBF file.
Syntax: SUB DB.PACK( _
DB.FX.%, _
DB.LEN.%, _
DB.HDR.LEN.%, _
DB.HDR.REC.TOT.!)
Parameters: DB.FX.% Contains the file number of the
file to be opened.
DB.NUM.% Contains the record number of
the database record to be
retrieve.
DB.LEN.% Record Length.
DB.HDR.LEN.% Length of the header structure.
!!DO NOT MODIFIED THIS FIELD!!!
DB.HDR.REC.TOT.! Number of records in the file.
11
Quick Basic DBASE III Routines
CONVERT NUMBER TO STRING
Purpose: Convert a double precision number into a string so
it can be used by DBASE III.
Syntax: SUB DB.NUM.STR( _
DB.NUM.#, _
DB.DEC.%, _
DB.STR.NUM$)
Parameters: DB.NUM.# Contains the number to
converted to a string.
DB.DEC.% Contains the number of decimal
position that the number should
contain.
DB.STR.NUM.$ Number converted to string.
12
Quick Basic DBASE III Routines
ORDER FORM
NAME ________________________________________
ADDRESS ________________________________________
CITY ________________________________________
STATE ________________________________________
ZIP CODE ______________________
PHONE (______)______--________
QuickBasic Ver: _____________
MAIL TO George Quinones
P.O.Box 1062
Orlando,Fl.,32803-1062
Make check for $20.00 payable to George Quinones. Please allow 2-3
weeks for delivery
13
